home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_4.ZIP / T6804L.ASM < prev    next >
Assembly Source File  |  1990-07-18  |  1KB  |  59 lines
  1.     .sbttl    Assembler Link Tests
  2.  
  3.     .module    t6804l
  4.  
  5.     ; This file and TCONST.ASM should be assembled and linked.
  6.     ;
  7.     ; AS6804 -XGOL T6804L
  8.     ; AS6804 -XGOL TCONST
  9.     ;
  10.     ; ASLINK -C
  11.     ; -XMS
  12.     ; T6804L
  13.     ; TCONST
  14.     ; -E
  15.     ;
  16.     ; The following tests verify the correct processing of
  17.     ; external references for the direct page, index mode offsets,
  18.     ; and branches.
  19.     ;
  20.     ; *L signifies an error will be reported at link time.
  21.  
  22.     ; branch test must be first
  23.  
  24.     .area    TEST    (ABS,OVR)
  25.  
  26.     .blkb    0x7D        ;bra1:
  27.     brclr    #0,0,bra1    ;   C0 00 00  [C0 00 80]
  28.     .blkb    0x7E        ;bra2:
  29.     brclr    #0,0,bra2    ;*L C0 00 00  [C0 00 7F]
  30.     brclr    #0,0,bra3+1    ;   C0 00 01  [C0 00 7F]
  31.     .blkb    0x7E
  32.     .blkb    0x00        ;bra3:
  33.     brclr    #0,0,bra4+1    ;*L C0 00 01  [C0 00 80]
  34.     .blkb    0x7F
  35.     .blkb    0x00        ;bra4:
  36.  
  37.     .blkb    0x7D        ;bra5:
  38.     brclr    #0,0,bra5    ;   C0 00 00  [C0 00 80]
  39.     .blkb    0x7E        ;bra6:
  40.     brclr    #0,0,bra6    ;*L C0 00 00  [C0 00 7F]
  41.     brclr    #0,0,bra7+1    ;   C0 00 01  [C0 00 7F]
  42.     .blkb    0x7E
  43.     .blkb    0x00        ;bra7:
  44.     brclr    #0,0,bra8+1    ;*L C0 00 01  [C0 00 80]
  45.     .blkb    0x7F
  46.     .blkb    0x00        ;bra8:
  47.  
  48.  
  49.     lda    minus1        ;*L F8 00  [F8 FF]
  50.     lda    zero        ;   F8 00  [F8 00]
  51.     lda    two55        ;   F8 00  [F8 FF]
  52.     lda    two56        ;*L F8 00  [F8 00]
  53.  
  54.     lda    lminus1        ;*L F8 00  [F8 FF]
  55.     lda    lzero        ;   F8 00  [F8 00]
  56.     lda    ltwo55        ;   F8 00  [F8 FF]
  57.     lda    ltwo56        ;*L F8 00  [F8 00]
  58.  
  59.